home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / comm / uucp / MergeBuffers.lha / MergeBuffers / ProcessFile.MDAREXX < prev    next >
Encoding:
Text File  |  2002-01-03  |  1.5 KB  |  57 lines
  1. /* ARexx - Script für Microdot 1.18 im UUCP-Modus
  2. **
  3. ** $VER: MergeBuffers 1.2 (02-01-02) Rudolph Riedel
  4. **                                   rudolph-riedel@t-online.de
  5. **
  6. ** Public Domain - Benutzung auf eigene Gefahr! / No warranty whatsoever!
  7. **
  8. ** Braucht: Aminet/util/sys/JoinReplace.lha by Dirk Stoecker
  9. **
  10. **
  11. ** Dieses ARexx-Programm dient dazu alle Einsortier-Puffer von Microdot
  12. ** vor dem Einsortieren zu einer einzigen grossen Datei zusammenzufügen.
  13. **
  14. ** Der Vorteil ist, dass die Datenbank immer nur um eine einzige Datei
  15. ** wächst und somit nur noch aufgeräumt zu werden braucht wenn die
  16. ** Anzahl der gelöschten Mails Überhand nimmt.
  17. **
  18. ** Getestet einzig und allein mit Microdot 1.18 .
  19. **
  20. ** Achtung! Vor Benutzung müssen die Pfade angepasst werden!!
  21. **
  22. **
  23. */
  24.  
  25. parse arg file
  26.  
  27. options results
  28.  
  29. pfad="DH5:Microdot5/"
  30.  
  31. join=pfad"rexx/join"
  32.  
  33. bufferfile=pfad"UUSPool/sortin.1"
  34.  
  35. /* mache garnichts wenn mit "sortin.1" als Parameter aufgerufen */
  36. if file="sortin.1" THEN 
  37.  DO
  38.   exit
  39.  END
  40.  
  41.  
  42. /* optionales Kopieren der Quell-Dateien in ein anzulegendes Backup-Verzeichnis */
  43. copy="c:copy"
  44. para=pfad"UUSPool/"file pfad"UUSPool/!Back"
  45. address command copy para
  46.  
  47.  
  48. /* hinzufügen der Quell-Datei an die Datei "sortin.1" */
  49. para=pfad"UUSPool/"file as bufferfile ADD QUIET
  50. address command join para
  51.  
  52.  
  53. /* ersetzen der Original-Datei durch eine Fake-Datei welche von
  54.    Microdot schlicht ignoriert wird, da sie kleiner als 64 Zeichen ist... */
  55. para=pfad"rexx/sortin.fake" pfad"UUSPool/"file
  56. address command copy para
  57.